VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsWInStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Option Explicit

' Name:     Windows Information Viewer
' Author:   Chong Long Choo
' Date:     06 September 1999

Private mvarWS_BORDER As Boolean
Private mvarWS_CAPTION As Boolean
Private mvarWS_CHILD As Boolean
Private mvarWS_CLIPCHILDREN As Boolean
Private mvarWS_CLIPSIBLINGS As Boolean
Private mvarWS_DISABLED As Boolean
Private mvarWS_DLGFRAME As Boolean
Private mvarWS_GROUP As Boolean
Private mvarWS_HSCROLL As Boolean
Private mvarWS_MAXIMIZE As Boolean
Private mvarWS_MAXIMIZEBOX As Boolean
Private mvarWS_MINIMIZE As Boolean
Private mvarWS_MINIMIZEBOX As Boolean
Private mvarWS_POPUP As Boolean
Private mvarWS_SYSMENU As Boolean
Private mvarWS_TABSTOP As Boolean
Private mvarWS_THICKFRAME As Boolean
Private mvarWS_VISIBLE As Boolean
Private mvarWS_VSCROLL As Boolean

Public Property Let WS_VSCROLL(ByVal vData As Boolean)
    mvarWS_VSCROLL = vData
End Property

Public Property Get WS_VSCROLL() As Boolean
    WS_VSCROLL = mvarWS_VSCROLL
End Property

Public Property Let WS_VISIBLE(ByVal vData As Boolean)
    mvarWS_VISIBLE = vData
End Property

Public Property Get WS_VISIBLE() As Boolean
    WS_VISIBLE = mvarWS_VISIBLE
End Property

Public Property Let WS_THICKFRAME(ByVal vData As Boolean)
    mvarWS_THICKFRAME = vData
End Property

Public Property Get WS_THICKFRAME() As Boolean
    WS_THICKFRAME = mvarWS_THICKFRAME
End Property

Public Property Let WS_TABSTOP(ByVal vData As Boolean)
    mvarWS_TABSTOP = vData
End Property

Public Property Get WS_TABSTOP() As Boolean
    WS_TABSTOP = mvarWS_TABSTOP
End Property

Public Property Let WS_SYSMENU(ByVal vData As Boolean)
    mvarWS_SYSMENU = vData
End Property

Public Property Get WS_SYSMENU() As Boolean
    WS_SYSMENU = mvarWS_SYSMENU
End Property

Public Property Let WS_POPUP(ByVal vData As Boolean)
    mvarWS_POPUP = vData
End Property

Public Property Get WS_POPUP() As Boolean
    WS_POPUP = mvarWS_POPUP
End Property

Public Property Let WS_MINIMIZEBOX(ByVal vData As Boolean)
    mvarWS_MINIMIZEBOX = vData
End Property

Public Property Get WS_MINIMIZEBOX() As Boolean
    WS_MINIMIZEBOX = mvarWS_MINIMIZEBOX
End Property

Public Property Let WS_MINIMIZE(ByVal vData As Boolean)
    mvarWS_MINIMIZE = vData
End Property

Public Property Get WS_MINIMIZE() As Boolean
    WS_MINIMIZE = mvarWS_MINIMIZE
End Property

Public Property Let WS_MAXIMIZEBOX(ByVal vData As Boolean)
    mvarWS_MAXIMIZEBOX = vData
End Property

Public Property Get WS_MAXIMIZEBOX() As Boolean
    WS_MAXIMIZEBOX = mvarWS_MAXIMIZEBOX
End Property

Public Property Let WS_MAXIMIZE(ByVal vData As Boolean)
    mvarWS_MAXIMIZE = vData
End Property

Public Property Get WS_MAXIMIZE() As Boolean
    WS_MAXIMIZE = mvarWS_MAXIMIZE
End Property

Public Property Let WS_HSCROLL(ByVal vData As Boolean)
    mvarWS_HSCROLL = vData
End Property

Public Property Get WS_HSCROLL() As Boolean
    WS_HSCROLL = mvarWS_HSCROLL
End Property

Public Property Let WS_GROUP(ByVal vData As Boolean)
    mvarWS_GROUP = vData
End Property

Public Property Get WS_GROUP() As Boolean
    WS_GROUP = mvarWS_GROUP
End Property

Public Property Let WS_DLGFRAME(ByVal vData As Boolean)
    mvarWS_DLGFRAME = vData
End Property

Public Property Get WS_DLGFRAME() As Boolean
    WS_DLGFRAME = mvarWS_DLGFRAME
End Property

Public Property Let WS_DISABLED(ByVal vData As Boolean)
    mvarWS_DISABLED = vData
End Property

Public Property Get WS_DISABLED() As Boolean
    WS_DISABLED = mvarWS_DISABLED
End Property

Public Property Let WS_CLIPSIBLINGS(ByVal vData As Boolean)
    mvarWS_CLIPSIBLINGS = vData
End Property

Public Property Get WS_CLIPSIBLINGS() As Boolean
    WS_CLIPSIBLINGS = mvarWS_CLIPSIBLINGS
End Property

Public Property Let WS_CLIPCHILDREN(ByVal vData As Boolean)
    mvarWS_CLIPCHILDREN = vData
End Property

Public Property Get WS_CLIPCHILDREN() As Boolean
    WS_CLIPCHILDREN = mvarWS_CLIPCHILDREN
End Property

Public Property Let WS_CHILD(ByVal vData As Boolean)
    mvarWS_CHILD = vData
End Property

Public Property Get WS_CHILD() As Boolean
    WS_CHILD = mvarWS_CHILD
End Property

Public Property Let WS_CAPTION(ByVal vData As Boolean)
    mvarWS_CAPTION = vData
End Property

Public Property Get WS_CAPTION() As Boolean
    WS_CAPTION = mvarWS_CAPTION
End Property

Public Property Let WS_BORDER(ByVal vData As Boolean)
    mvarWS_BORDER = vData
End Property

Public Property Get WS_BORDER() As Boolean
    WS_BORDER = mvarWS_BORDER
End Property
